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About this book 

The programs in this book are 
written in a standard version of 
BASIC and there are conversion 
lines to type in for most of the main 
types of home computers. Look 
down the left-hand side of the 
program for the symbol for your 
computer and then look at the list of 
changes for the correct version of 
that line. The symbols for the various 
computers are as follows: 
a Commodore 64 and VIC 20 
★BBC and Electron 
o Spectrum 
•Apple 

■ TRS-80 (extended BASIC version) 

About the games 

The games in this book are very 
simple. They are intended to help 
you get used to your computer and 
to the BASIC language by typing in 
listings, debugging them and seeing 
how they work. The programs do 
not contain graphics or sound as 
these vary so much from computer 
to computer, but you can try adding 
these. 

You can change and adapt the 
games as much as you like. There 
are suggestions for ways of doing 
this next to each program and you 
can experiment with your own ideas 
as well. This way you can use the 
games in this book as a basis for 
longer, more complicated games of 
your own. 

Micropuzzle was written by Les Howarth 
and Monster Wrestling by Adrian Hall. 

Illustrated by Rob McCaig, Sue Walliker, 
Martin Newton and Graham Smith. 


Typing and runningthe 
programs 

Remember, even short programs 
can be quite difficult and time- 
consuming to type in correctly. 
Check each line as you go. It is so 
easy to make mistakes, eyen if you 
are quite experienced. When you 
have typed in the whole listing, 
check it again, making sure you 
haven’t missed any lines, spaces or 
punctuation. 

To start the game, type RUN. Read 
the introduction to the game first so 
that you have some idea of what you 
are supposed to do before you start. 
If the program doesn’t work 
properly, it is quite likely that there 
is a mistake in it somewhere, so LIST 
the program and check again. 

When the game is over, the 
computer may ask if you want to 
play again or say something like 
BREAK in 200, in which case you 
must type RUN to play again. 

Changing the speed 

Some games depend on the speed 
of both your reactions and your 
computer. You may find you need to 
adjust the speed. You will find 
instructions for doing this next to the 
program listing. 


First published in 1984 by Usbome 
Publishing Ltd, 20 Garrick Street, London 
WC2E9BJ. 

© 1984 Usbome Publishing Ltd 

The name Usbome and the device ^7 are 
Trade Marks of Usbome Publishing Ltd. 


2 Designed by Roger Priddy 
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See if you can L 
replace the skull 
symbol with a 
graphics character. 


ShuCCs of the Pyramid 


A mind without a body - that’s all you’ve been since that terrible accident all 
those years ago, during the building of The Pyramid. 

It takes all your mental energy to satisfy the Evil Spirit Master’s demands. 
Every day he forces a number into your mind (if only you could turn him off!). 

You must will skulls to fall off The Pyramid onto the numbered stones below in an 
attempt to score that number. 

Press 1 , 2, 3 or 4 to release a skull. You must use five skulls each go - no more, 
no less. Score the right number and rid yourself of the Curse of The Pyramid. 


Increase the value of SP in 
line 10 to speed up the 
program. 


LET TS=0: LET IS=“0":LET SP=3 
LET N=INT (RND ( 1 ) *30) +10 
CLS: PRINT 

PRINT 'SKULLS OF THE PYRAMIDS* 
PRINT 

PRINT 'YOU ARE REQUIRED* 

PRINT 'TO BET ';N:PRINT 

LET K=3000: GOSUB 540 

CLS: LET Y=2 % 

FOR 1=1 TO 4 ^ 

LET A*=STR$ ( I ) : LET X=6+2+I 

GOSUB 560 

NEXT I 

LET ft$=" A ':F0R 1=1 TO 5 

LET Y=2+2«I 

FOR J=1 TO 1+3 

LET X=7-I+2+J 

GOSUB 560 

NEXT J 

NEXT I 

LET Y=14 

FOR 1=1 TO 9: LET Af=STRKI> 

LET X=1 +2»I : GOSUB 560 

NEXT I 

LET S=0 

FOR 1=1 TO 5 

LET A»='CH00SE RON' 

LET X=0: LET Y=0: GOSUB 560 
LET I*=INKEY$ 

IF I$="THEN GOTO 290 
LET R=VAL ( I $ ) 

IF R<1 OR R>4 THEN GOTO 290 
LET Y=3: LET K=400:LET X=6+2+R 
LET F=0 
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How the program works 


10: Sets variables at beginning of 
game. 

20: Chooses number that player 
must score. 

30-80: Print starting message and 
wait for player to see it. 

90-240: Print out pyramid and the 
numbers at the top and bottom of it. 


Add nasty thudding 
noises as the skulls 
bump down The 
Pyramid if you can. 


250: Sets score to zero. 

260: Sets number of skulls. 

270-280: Print message top 
left of screen. 

290-300: Wait for key to be 
pressed. 

310-320: Check if key pressed 
is between 1 and 4 and go 
back to wait again if it isn't. 

330: X and Y are position of 
skull. This line sets them 
at the top of the pyramid. 

340: F is a flag which 

records whether previous 
move was a sideways 
bounce. / 





Don’t suppose 
you’re clever 
enough to change 
the limits of the 
number to be 
> scored. 


Bet you can’t work 
out how to add more 
skulls each go. 


\ 

Conversion lines 

$ 20,390 Replace RND(l) with RND 

■ 20,390 Replace RND(l) with RND(O) 

• 30,90,490 Replace CLS with H0HE 

a 30,90,490 Replace CLS with PRINT CHRK147) 

• 290 LET I*=INKEY$(0) 

• 290 It=’":IF PEEK (-16384)>127 THEN SET I» 
a 290 GET 1$ 

0 560 PRINT AT Y,X;A« 

• 560 VTAB (Y+l) : HTAB (X+l ): PRINT A* 
a 560 PRINT CHRJ ( 19) ; : FOR LL=1 TO V: 

PRINT: NEXT: PRINT TAB(X);A$ ^ 

■ 560 PRINTS Y*32+I,A$; 




350-370: Print the skull and wait. 

380: Remove the skull. 

390: Choose which way to 
bounce (if value of F allows 
sideways bounce). 

400: Moves skull down one row. 

410: Checks if skull has reached 
the bottom. 

420: Works out score depending 
on column skull finishes in. 

430-450: Print out score. 

470: Waits. 

480-500: Add difference between 
score and number required to 
total score. Clear screen and 
print score. 

510: If difference is greater than 
1, goes back for another go. 

520: Prints winning message. 

540-550: Subroutine to make 
computer pause for length of 
time depending on K. 

560-570: Subroutine to move 
cursor to position X,Y on the 
screen. 


350 LET A*=*0* 

360 GOSUB 560 
370 GOSUB 540 
380 LET A$=" GOSUB 560 

■0 390 IF F=0 AND Y<13 THEN LET X=X+SGN (RND ( 1 ) -. 5) 
400 LET Y=Y+1 : LET F=l-F 
410 IF Y< 1 4 THEN GOTO 350 - 

) 420 LET S=S+(X-l)/2 

' 430 LET X=15: LET Y=0 

440 LET A$=STR$(l)+“:'+STR$(S) 

450 GOSUB 560 
460 NEXT I 

470 LET K=1000: GOSUB 540 
480 LET D=ABS (S-N) : LET TS=TS+D 
•a 490 CLS: PRINT : PRINT 

500 PRINT "YOUR RATING IS NON "jTS 

510 IF D>1 THEN LET K=3000:60SUB 540: GOTO 20 

520 PRINT "AND YOU CAN GO FREE!" 

530 STOP 

540 FOR T=1 TO K STEP SP.-NEXT T 
550 RETURN 

■ •a 560 PRINT TAB (X , Y) ;A$ 

570 RETURN 





^Monster Wrestling 


Monster wrestling is a sport for lunatics! Which doesn’t say much for you- the 
brain in charge of this hulk of bone and muscle which is about to take on some ofthe 
nastiest monsters in the Universe. 

As brain, you must do a lot of quick and accurate calculations. You must workout 
the muscular effort required to hold off the monster, for instance, and this involves 
multiplying the size of the monster by the distance it is away from you. 

If the numbers look too difficult, you can press the Panic Button (key P). You must 
then work out how much adrenalin the body needs to survive the crisis, by 
dividing heartbeat increase required by oxygen supply. Take care though, over- 
use of the Panic Button puts too much strain on the heart and will eventually cause 
a black out. 

To live to fight another match, you must survive 12 rounds against the monster. 


20 let p=o How the program works 

30 LET K>3 r 3 

•A40 CLS 
50 LET X=1 
60 LET Y=6 
70 LET N=-l 
75 LET N=N+ 1 

■080 LET S=I NT (RND ( 1 ) *Y+X ) 

■ 090 LET 1»1NT(RND(1)»K+K) 

100 LET Y=Y+0.5 
110 LET X=X+0.5 
120 LET K=K+0.5 
130 PRINT 
140 PRINT 

150 PRINT ’SIZE OF MONSTER: 

160 PRINT G 
170 PRINT 

180 PRINT “DISTANCE AWAY : V 
190 PRINT I 
200 PRINT 

210 PRINT 'MUSCULAR EFFORT 1 
220 GQSUB 570 

230 IF Z<>6*I THEN GOTO 320 330-380: Losing message. 

•A 240 CLS 

250 PRINT “MONSTER KEPT AT BAY* A 
260 IF IK 11 THEN GOTO 75 > 

270 PRINT “PHEN! ! ! (-THE MONSTER' \j 

280 PRINT “IS TIRED AND HAS GONE TO" 

290 PRINT “LOOK FOR ANOTHER VICTIM. “ 

300 PRINT “YOU SURVIVE TO TELL THE TALE 
310 STOP 

•a 320 CLS L 

330 PRINT “YOU HAVE BEEN CRUSHED” J 

340 PRINT “TO A PULP IN THE* ^ 

350 PRINT “MONSTER'S HUGE ARMS* 

360 PRINT ' 

370 PRINT “YOU SURVIVED ":N:" ROUNDS" 


20: Sets number of panics used to 
zero. 


30-60: Set upper limits for size of 
monster and distance away. 


80: Sets monster size. 


90: Sets distance away. 


100-120: Increase upper limits for 
size and distance by 0.5 each 
round. 


210-220: Ask for answer and go to 
subroutine to deal with it. 


230: If answer incorrect, jumps 
down program for losing 
message. 


250: Message if round won. 


260: Goes back for next round. 


270-310: Winning message if you 
survive 12 rounds. 


( If you keep losing, . 
you’d better slow the 
program down by 
increasing the value of 
-• O in line 660. r** 


Decrease Q if the game 
is too easy for you. 
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380 
•a 390 
■$400 
■$410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
★ 520 
530 
540 
•a 550 
560 
570 
$580 
*«a590 






$ 610 
620 
$ 630 
640 
650 

670 

680 

690 

•a700 

710 

720 


STOP 

CLS 

LET MX=INT (RND ( 1 > *9+-l > 

LET MY= I NT (RND ( 1 ) *9+1 ) 

LET K=NX*WY 
LET P=P*1 

IF P=4 THEN BOTO 700 

IF P=3 THEN PRINT “YOU ARE SEEING STARS’ 

PRINT “PANIC ON!!' 

PRINT 

PRINT “HEARTBEAT INCREASE: *:N 
PRINT “OXYGEN SUPPLY=“;HX 
PRINT 

PRINT “AMOUNT OF ADRENALIN ? “i 
LET Q=100 
GOSUB 580 

IF 2<>NY THEN GOTO 320 

CLS: IF N<11 THEN G OTO 75 

GC ’'- 1 f Make it harder for ^ 

LET Q=0 / yourself- find out how ‘ 

i CT 7>.i ■ l to increase the number 

Lt V of rounds. S' 

LET A$=INKEY$ v — 

IF A$=CHR$(13) THEN GOTO 680 \J 

IF A$='P" THEN GOTO 390 " 

IF VAL ( A$) =0 AND A$<>"0- THEN GOTO 650 
PRINT AS; 

LET ZS=ZS*A$ 

LET Q=Q+1 

IF Q= 500 THEN 60T0 320 
GOTO 590 
LET Z=VAL(ZS) 

RETURN 
CLS 

PRINT "YOU BLACKED OUT 
STOP 


400-4 1 0: Set oxygen supply and 
amount of adrenalin needed. 


420: Sets heartbeat increase. 


430-450: Increase panic count, 
print warning after 3 and end 
game after 4. 


460-510: Print panic messages 
and ask for answer. 


520: Sets value of Q for start of 
count at lines 650-660. 


530: Goes to answer subroutine. 


540: If answer incorrect, jumps 
back to losing message. 


550-560: If correct, go back for 
next round or winning message. 


570-690: ANSWER SUBROUTINE. 
570: Sets count to zero. 


580: Sets aside memory for Z$. 


590: Checks for key press. 


600: Checks if key pressed is 
RETURN (CHR$(13)). If so jumps 
down to line 680. 


610: Checks if P key pressed and 
if so, goes to panic routine. 


THEN GOTO 650 


620: If no key pressed, jumps 
down to increase count Q. 


630: If key other than RETURN or 
P pressed, it is printed. 


640: ZS is all keys pressed this round. 


650-660: Time loop. If O reaches 
1000 before key is pressed, jumps 
up to losing message. 


670: Goes back for next key press. 


680: Converts numbers in string 
Z$ to values it can put in Z. 




710: Losing message for over-use 
of panic. 
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Conversion lines 




A 40,240,320,390,550.700 Change CLS to PRINT CHRff 

• 40,240,320,390,550,700 Chance CLS toHOHE 
$80,90.400,410 Change RNDil) to RND 

■ 80,90,400.410 Change RND < 1 ) to RMD'0) 

★ 520 LET Q= 400 

• $580 LET ZS=‘0‘ 

★590 LET Al= I NK£ VS ( I ) 

A 590 BET AS 

•590 AS*":1F PEEK (-16384) >127 THEN SET AS 
$595 IF AS=“ THEN BOTO 650 
$597 PAUSE 40 

$600 IF AS=CHRS(13) THEN PAUSE 2O:G0T0 680 
$610 IF AS=*P* THEN PAUSE 30:B0T0 390 
$630 PRINT AS; .-PAUSE 15 
★660 IF 0=1000 THEN GOTO 320 
$■•660 IF 0=250 THEN BOTO 320 







•A 290 CLS: PRINT "YOU HAVE BEEN CAUGHT" 

300 LET S=INT ( 10000* (T/6) ) :PRINT 'YOU SCORED ':S 
310 PRINT:PRINT 'ANOTHER GO’ <Y/N>' 

320 INPUT A*: IF A$=T THEN GOTO 20 / 

330 STOP [ , 

340 LET T=TM:LET U=U-0.03 
350 GOSUB 390: 60SUB 490 

360 RETURN 

370 LET MGIilET Y«GY:LET AM' ■ ^ 

380 GOSUB 640: GOSUB 440: RETURN 
■0390 LET KMINT(RND(1)*4)M ™ 

■0400 LET K2*INT(RN»li)t4)M 
410 LET TMKMK1) 

420 LET K$(K1MK*IK2):LET KHK2MTI 
430 RETURN 
440 60SUB 550 

450 IF X*TI AND Y*TY THEN GOTO 440 

460 LET GX*I:LET GY=V 

470 LET AM'H':GOSUB 640 

480 RETURN 

490 GOSUB 550 

500 LET TMIjLET TY«Y 

510 LET AM'P':GOSUB 640 

520 RETURN 

0530 LET F=0:IF HID! (H$(Y),1, 1)0" ' THEN LET F=1 
540 RETURN 

■0550 LET MINT(RNDO)tl4)*2 
■0560 LET YsINT(RND(l)#9)*2 
570 60SUB 530 
580 IF F«1 THEN GOTO 550 
590 RETURN 
•A 600 CLSjLET Ml 

610 FOR Y=1 TO 12: LET AMNMY) 

620 GOSUB 640:NEIT Y 
630 RETURN 

640 PRINT TAB ( X , Y) ; AS 
^ 650 RETURN 

660 FOR Ml TO 12:READ MS ( I ) : NEXT I 
670 RETURN 

680 DATA -OOOOOOOOOOOOOOOO- 
690 DATA '0 O' 

700 DATA '0 0 000 00 000 O' r 

710 DATA '0 0 0 O' (7 

720 DATA '0 0 0000 0 0 O' 

730 DATA *000 0 0 0 0 O' 

740 DATA '0 00 O' % 

750 DATA '0 0 00 0 0 0 O' C 

760 DATA '0 0 00 0 000 0 O' h 

770 DATA '0 O' If 

780 DATA '0000000000000000' fj 

790 DATA 'PEOPLE EATEN: ' ft 


290-330: Print message and score if 
Jaws is caught. Ask if player wants 
another game. 


Skeleton speech 1 
bubble \ 
Score depends on 
' number of people , 
eaten and number of 
s. moves. 


370-380: Subroutine which removes 
hunter from old position and prints him 
in new one. 


390-430: Subroutine which changes 
keys around. 


440-480: Subroutine for printing hunter, 
using another subroutine to choose a 
random position for him. Line 450 
checks position chosen does not 
already have a person in it. 


490-520: Subroutine for printing person, 
using another subroutine to choose 
random position. 


530-540: Subroutine which checks if 
position X, Y coincides with a wall. If it 
does F is set to 1. 


550-590: Subroutine which chooses a 
random position and checks it is not a 
wall. 


600-630: Subroutine which prints out 
grid. 


640-650: Subroutine which prints at 
position X,Y. 


660-790: Subroutine which reads in data 
for grid. 


These lines make the grid. 
You could change it by 
drawing a new grid on 
squared paper and 
copying it into the 
program using O for walls 
and spaces for passages. 




As chief assistant to Superwitch, your job is to fly across the land on your broomstick 
collecting fresh ingredients for her putrid potions. You will know exactly what to 
collect each time because she transmits her revolting recipes directly to your 
computer screen. 

Ingredients such as T (Toe of Newt) and B (Brain of Bat) flash past beneath you as 
you fly. Press any key to swoop down and pick one up (you must land right on top of it 
to do so). Take care, some of them could be the Broomstick Snatcher in disguise. If you 
land on her, you’ll lose your stick. (Luckily you start the game with three spares.) You 
must collect everything you need before you get to the Cauldron or Superwitch will 
notbe pleased with you . . . 



10 60SUB 700: GOSUB 620 
20 LET NW=4 : LET 11=0: LET FM=50 
30 GOSUB 530: LET H=NH 

40 GOSUB 550 ^ 

50 LET EF=0: LET FF=0: LET HH=H 
60 FOR 1=1 TO 4: LET G(!)=0:NEXT I / 

70 FOR I=! TO 4: LET A*=P* ( I LET »=l_y 
80 LET Y=1*I:GQSUB 610:NEXT I 
90 GOSUB 490.-GOSUB 430 ^ 

100 IF N=FH THEN GOTO 250 
110 IF EF=1 THEN GOTO 230 
1120^ I NKEY$ (0) =' * THEN GOTO 90 ^ 

130 LET HH=H-1: GOSUB 510 
140 GOSUB 490: GOSUB 430 > y ou?M 

150 LET H=HH ( ^ mee 

160 IF H>0 THEN GOTO 130 ( vJtorfS 

170 IF P=17 THEN GOSUB 320 V 20 Th 

180 IF FF=1 THEN GOTO 240 j 

190 GOSUB 530 V start j 

200 LET HH=H+1 : GOSUB 510:G0SUB 490 V 
210 LET H=HH: IF H=NH THEN SOTO 90 
220 GOSUB 430: GOTO 200 
230 LET A*="WELL DONE 1 SUPERWITCH ^SfLEASEI 
240 LET A4="0UT OF BROOMSTICKS' ’ : GOTO 260 
250 LET A$="T00 LATE!" // 

260 LET X=1 : LET Y=15:G0SUB 610 
270 STOP 

280 LET A$="W*:LET X=P:G0SUB 610 
290 FOR T=1 TO 1000:NEXT T 
300 LET NW=NW-1 : IF NW=0 THEN LET 
310 RETURN 

320 IF «=1 THEN GOSUB 280: RETURNS 
330 LET G(R)=G(R>*1 \\ « 

340 LET A*=STR$ (G (R) ) : LET X=17^ /] - 

350 LET Y=1 +-R: GOSUB 610 
360 LET P=19: GOSUB 430 / lettersmto 

370 LET F=0 ( graphics symbols. 

380 FOR 1=1 TO 4 7~^. 

390 IF G 1 1 ) >=N ( I ) THEN LET F=F*1 \ 



How the program works 


20: Sets up variables. (See if you 
can work out what they are.) 


30: H is your height above the 
ground. NH is your new height 
after a dive. 


50: EF and FF are flags which are 
set if game is finished. HH is a 
variable for holding intermediate 
heights on the way up or down. 




60: G( ) counts how many of each 
type of object you’ve picked up. 


70-80: Print recipe. 


[ Too hard for ) 
you? Make the \ 
game easier by ) 
increasing the ( 
value of FM in line 
20. This puts 
) more objects / 
between the | 
V start and the J 
I cauldron, f 


90-120: Move “ground” and objects 
across screen until a key is 
pressed. 


130-160: Keep ground and objects 
moving and move witch down to 
ground level. 


170: If P= 17 then witch has landed 
on object. 


180: Checks flag for end of game. 


LEASED WITH 


200-220: Move ground and objects 
past until witch reaches new 
height. 


230-270: End messages. 


280-310: Subroutine which shows 
W if object is Broomstick Snatcher 
in disguise. Increases NW and sets 
FF if all broomsticks used up. 


320: Subroutine which checks if 
you landed on Broomstick 
Snatcher. 


330-350: Increase number of object 
R collected and print new total on 
screen. 


370-420: Check if all ingredients 
for this recipe have been 
collected. 


Why not change the 
ingredients? 


• y W!.; • wp r ’;M 






510 
520 
■0530 
540 
■0550 
■0560 
0570 
580 
590 
. 600 
&610 
•a 620 
630 
640 
■0650 
660 
670 
680 
•a o 90 
0700 
0710 
720 
730 
740 
0750 
760 
770 


NEXT I 

IF F=4 THEN LET EF=! 

RETURN 

LET 6D=GD+1: IF GD=6 THEN LET GD=1 
LET A$=G$(BD):LET X=1:LET Y=15:G0SUB 610 
LET A$=* “ : LET X=P:LET Y=14:G0SUB 610 
LET P=P*1: IF P=20 THEN GOSUB 550 
LET X=P: LET A*=CS:GOSUB 610 
RETURN 

LET A$="-Y-=":LET X=16:LET Y=14-HH 
GOSUB 610: RETURN 

LET A$=“ •:LET X=16:LET Y=14-H 

GOSUB 610: RETURN 

LET NH=INT (RND(l)*5+3) 

RETURN 

LET R=lNT(RNDill»4)tl 
LET N=0: IF RNDI1)>0.8 THEN LET N=1 
LET C$=LEFT$IPJ(R),1):LET P=1 
LET H-H4-1 

IF M=FM THEN LET CI="CAULDRON" 

RETURN •JP 

PRINT TABIX, Y) ;AJ:RETURN W \ 

CLS: PRI NT: PRINT V 

PRINT "THE POTION MUST HAVE”:PRINT 
FOR 1=1 TO 4 

LET N=INT(RND(1)*3)*2:LET N(I)=N 
PR INT: PRINT: N; ” *jPlII) 

NEXT I : PRINT : PRINT 

PRINT "PRESS RETURN TO PLAY" /" 

INPUT X$: CLS: RETURN \ 

DIM P»(4):D!M N(4):DIM G(4) 

DIM SII5) 

FOR 1 = 1 TO 4 : READ P*U):NEXT 1 

DATA "TOES OF NEWTS * , "EYES OF LIZARDS", "ROOTS 

LET HJ=' >====>==== >====>====>==*=■ 

FOR 1=1 TO 5: LET GI(6-!)=MID»!H$, 1,1+201 

NEXT I: LET GD=1 

RETURN 


430-480: Print new section of 
ground and move the object along 
to position P. If object is past the 
witch (i.e. P=20, then choose a 
new object). 

490-500: Print witch. 

510*520: “Unprint” witch. 

530-540: Choose new height for 
witch. 

550: Chooses an object. 

560: Random chance of object 
being Broomstick Snatcher. 

570: Puts first letter of object in CS 
and sets position P to 1 . 

580: Increases object counter, M. 

590: If M equals maximum number 
of objects allowed, then C$ 
changed to "CAULDRON”. 

610: General subroutine to move 
cursor ready for printing. 

620-690: Choose and print recipe. 

700-770: Set up data for start of 
program. PS holds names of 
objects. HS holds symbols for 
ground. Line 750 moves the > 
symbols along each time. 


What will Superwitch do to you if 
you fail? Try adding comments 
s and penalties to the game. 


OF IVY", “BRAINS OF BATS" 


Conversion lines 

^ ^ ■ - - - m* 

■0:20 If INKEYS*"' THEN GOTO 90 

A610 PRINT ChR* i 19) :F0R LL=I TO f: PRINT : 

A120 SET If: IF I«=” THEN GOTO 90 

NEl T :PRlN ? TABU) ;Af:RETURN 

• 120 Ifs“:!F PEEK ( - 16384 > 12? ? h£N S£ t !l 

• 610 VTABIY) :HTAB<X) :PRINT AS: RETURN 

• 125 IF If«" THEN GOTO 90 

■ 610 PRINT! Y#32^X , AS; : RETURN 

★ 125 tFX15,l 

A 620,690 Replace CLS Kith PRINT CHfl$(147) 

0530,550,560,650 Reoiace RNDll) with RND 

• 620,690 Replace ClS wi trx HONE 

■ 530,550,560.650 Replace PND 1 » aaith RNDK” 

O700 DIN P$ 14,15) : DIN N(4>:DIH 6<4) /| 

O5 7 0 LET CI=P$«R.1):LET P*1 

0710 DIR 61(5,24) 

OolO PRINT AT Y, I: Af: RETURN 

0750 FOR 1=1 TO 5: LET G$(6-l)=Hf(I TO 1*20) 







This is a sort of mini- 
adventure game. If you’ve 
never played an 

t ad venture before, the 
object is to escape. f> 


Micropuzzie 


What’s happened? 

Where are you? F 

Everything appears fairly normal, /y 

though you do feel a bit sick. 

Better take a look round and see if 
you can find out what’s going on. 

(Hint: Try talking to your computer in two word sentences.) 


How the program works 

Lines 30-360: MAIN GAME SECTION 

10 GOSUB 1570 

10: Goes to subroutine to read in all the data. 

20 RESTORE: FOR 1=1 TO R: READ D$:NEXT I 
H30 CLSiPRINT “MICRO PUZZLE" 

40 PRINT ■««««*«*• 

50 PRINT “YOU ARE ’ ; D* 

20-50: Get a room description and print it. 

60 IF R=20 AND F(9)=0 THEN PRINT 'YOU ARE CONFRONTED BY A LARGE CAT” 

70 FOR 1=1 TO G 

80 IF L(I)=R AND F(I)=0 THEN PRINT 'THERE IS A “ ; 0* ( I 
90 NEXT I 

v.> UCRC • 70-90: Check if there is 

11 » anything there. 

100 PRINT.'PRINT "YOU CAN GO 
110 FOR 1=1 TO LENIRJ(R) ) 

0120 PRINT HIDI(RI(R),I,1); V; 
130 NEXT I 

100-130: Find which directions you 
can go in and print them. 

140 PRINTiPRINT * ” 

150 PRINT M* : LET H$='HHAT?" 

150: Default message. 

160 IF F C 16) =1 THEN PRINT "SELF DESTRUCT COUNTDOWN AT 

:*(L 

170 PRINT "WHAT WILL YOU DO NOW: INPUT 81 

180 LET V$="*:LET W$=”*:LET VB=0:LET 0B=0:LET LI=LEN(Q*> 

0190 FOR 1=1 TO LI 

0200 IF MI D* (0* , I , 1 ) =" ” AND V$=“” THEN LET V»=LEFT$(Q$,I-1) 

0210 IF MID$(0*, I+l,l)<>" ' AND VJ<>“” THEN LET N$=RIGHT$I0»,LI-I):LET I=LI 
220 NEXT I 











230-260: Check first word is a verb. 


230 IF Wf=" THEN LET V$=Q$ 
? 240 FOR 1=1 TO V 
250 IF Vt=H$II) THEN LET VB=I 
260 NEXT I 


270 6QSUB 440 


270: Goes to subroutine to check second word. 


280 IF VB=0 THEN LET VB=V+1 

290 IF «$>■■ AND 0B=0 THEN LET H$=‘THAT IS SILLY* 

300 IF «$=*" THEN LET H$=“I NEED TWO HORDS” 

310 IF VB)V AND 0B>0 THEN LET H$=*Y0U CAN'T "♦Q* 

320 IF VB>V AND 0B=0 THEN LET HI=*Y0U DO NOT HAKE SENSE- 

330 IF VB< V AND 0B>0 AND 0B<=G THEN LET H*=’Y0U DO NOT HAVE *+N* 


340 LET L=L-1 


280-330: Set up messages if 
necessary. 


340: Counter. 


IF VB>14 THEN SOTO 380 350-380: Goes to 

ON VB GOSUB 480,550,550,550,550,550.550,550,760,790,790,860,920,970 subroutine 

depending on 

GC TO ;90 verb you typed. 

ON VB-14 GOSUB 1080,1100,1180,1250,1320,1340, 1370, 1400,1460^1510^1560 


IF F ( 1 4) =0 AND DO THEN GOTO 20 

IF L<1 THEN LET H$="Y0U HAVE RUN OUT OF TINE. THE MAXINISER SELF OBSTRUCTED!" 

PRINT PRINT "GAME OVER" 

IP I >0 THFN GOSUB 1510 /^T “ ! \ 390-430: End of game. 


440-470: Subroutine which checks if second 
word is on computer’s object list. 


480-540: Subroutine which tells you what 
you are carrying. 


IF L>0 THEN GOSUB 1510 / Type I if you want an \ 

STOP ( inventory (that is, a list of ) 

what you are carrying). ) 

FOR 1=1 TO N V . ' 

IF W$=0$(I) THEN LET 0B=I V 

urwr T 440-470: Subroutine which c 

A 1 ft word is on computer’s object 

RETURN 

PRINT *Y0U ARE CARRYING:” 

FOR 1=1 TO G 

IF L (I ) =25 THEN PRINT OKI);","; 480-540: Subroutine which t< 

NEXT I A \ you are carrying. 

LET H$=" M :PRINT I? 

GOSUB 1550 * I 

RETURN ^ 


% riirhi >rr n nr, •> 550-750: Subroutine which deals with 

IF 0B=Q THEN LET D=VB-^ your instructions about which direction 

IF 0B>24 THEN LET D=0B-24 youwanttogo. 

IF R= 19 AND D=6 THEN LET D=4 

IF R=20 AND D=6 THEN LET D=4 

IF R=20 AND D=5 THEN LET 0=3 

IF F(9)=0 AND R=20 AND D=4 THEN LET H$=*THE CAT KILL NOT LET YOU* : RETURN 
IF R=2 AND L(l)=25 AND D=3 THEN LET N$=N1I:RETURN 
IF R=7 AND F (3)=0 THEN LET H$='AN ANGRY HOUSE BARS YOUR NAY 1 : RETURN 
LET F ( 13) =0: LET RL=LEN(R$(RI) 

FOR 1=1 TO RL S*' 

LET U$=HID$(RJ(R),I,1) / , V {“ 2 S" 

IF (U4="N* AND D=1 AND F(13)=0> THEN LET R=R-6:LET F(13)=l l need H u< 

IF (U$=*S* AND D=2 AND F(13)=0) THEN LET R=R+6: LET F(13) = l thit , 

IF (U$=-N“ AND D=3 AND F(13)=0) THEN LET R=R-1:LET F(13)=l 

IF (US=-E* AND D=4 AND F(13)=0) THEN LET R=R*1:LET F(13)=l 

NEXT I 


H you are using > 
a VIC 20, you Mill 
need eitra leiory 
lor this gate. > 





LET N$="OK" 

IF F ( 13) =0 THEN LET M$="Y0U CANNOT GO THAT MAY" 
IF D<1 THEN LET M$="GO WHERE?" 

RETURN 


Have you played a few times 
and decided you'll never be 
able to win? You can give 
yourself more time if you like 
by putting a higher value for 
Lin the middle of line 1910. 




LET M$=“AR£ YOU PRACTISING FOR THE OLYMPICS' 7 ” 

IF F ( 10) =1 AND <R=9 OR R=3) THEN LET M$=*IT IS TOO FAR TO JUHP 
RETURN 

IF 08=8 THEN LET M$=V*+" THE “ +1)1*112$: RETURN 
IF 0B>G THEN LET M$="I CANNOT GET THE "*M$: RETURN 
IF LIOBIOR THEN LET M$="IT IS NOT HERE* 

IF FIOBIOO THEN LET f1*="MHAT SMI*"?" 

IF L <0B) =25 THEN LET H$=“Y0U ALREADY HAVE IT" 

IF 0B>0 AND L (OB) =R AND F(0B)=0 THEN LET L(0B)=25:LET M$=M3$*H$ 

RETURN 

IF L (OB) <25 THEN RETURN 

LET H$=“N0T REALLY!": IF OBOl THEN RETURN 

PRINT "PUT KEY WHERE" 

INPUT WS: IF «>"" THEN GOSUB 440 

IF (0B=8 OR N$="0N “+0$(8)) THEN LET M$=M4$:LET F(15)=1:LET L(1)=R 
RETURN 

IF F ( 1 1 ) =0 AND L (7)=25 THEN LET F(11)=1:LET F(3)=0:LET L(3)=0:LET M$=M5* 
IF F ( 1 1 ) =1 AND L (7) =25 AND R=20 THEN LET F(9)=1:LET N$=H$+H6$ 

IF R=21 AND 0B=24 THEN LET F(4)=0:LET N$="DUST SETTLES" 

IF 0B=16 THEN GOSUB 970 
RETURN 

LET N*="N0TH1NG OF INTEREST" 

IF 0B=16 AND R=12 THEN LET F(2)=0:LET H$="IT IS A MICRO - VCR" 

IF QB=24 AND R=21 THEN LET M$=’SOMETHING INSIDE" 

IF 0B=19 AND R=24 THEN GOSUB 1400 
IF 0B=23 AND R=12 THEN LET M$=M7$ 

IF 0B=7 THEN LET HS="IT CONTAINS A LARGE FLY" 

IF 0B=9 AND R=20 AND F (9)=0 THEN LET M$="IT BITES AND SCRATCHES'" 

IF 0B=4 THEN GOSUB 1080 

IF 0B=1 AND L (11=25 THEN LET H$?"THE NUMBER '111' IS ENGRAVED ON IT" 

IF 0B=6 AND L <6) =25 THEN LET M$="THERE IS A BIG RED BUTTON" 

RETURN 

LET M$=MG$: IF 0B=4 AND L(0B)=25 THEN LET M$=MF$ 

RETURN 

IF 0BO5 THEN LET H$="CANN0T TIE "+l($:RETURN 
IF L15X25 THEN RETURN 
LET W$=” ” : PRINT "TIE THE THREAD TO WHAT" 

INPUT Ml 

IF Ml)"" THEN GOSUB 440 

LET M$="CANN0T TIE IT TO "*M$ v 

IF 0B=13 AND R=9 THEN LET F(5)=1:LET L(5)=0:LET M*=H8$ 

RETURN 

IF 0B=5 AND F (5) =0 THEN LET M$=*IT IS NOT TIED TO ANYTHING'" 

IF QB=5 AND R=9 AND F(5)=l THEN LET R=8: LET F(10)=0:LET M*="0K” : RETURN y 
IF 0B=5 AND R=8 AND F(5)=l THEN LET R=9: LET F(10)=1:LET M*="0K 
IF 0B=13 AND R=9 THEN LET H$="IT IS TOO SMOOTH TO CLIMB" 

IF 0B=W AND R=19 THEN LET 0B=30: GOSUB 550 


760-1500: These are subroutines for the 
verbs used in the program. Look for the 
lines which say RETURN to see where 
one ends and another starts. 


Unless you are using < 
Spectrum, you can 1 
out all the LETs if you like. 


“ using a J 
can leave \ 
if you like. 
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IF OB=H AND R=20 THEN LET OB=29:GOSUB 550 

RETURN ( “ ' \ i 

IF 0BO6 OR L (6> < >25 THEN RETURN expU^ed'S’ylTsome \ \ (?) f 

LET W$=" PRINT ’POINT IT AT WHAT “ of the otherewa.net to l 

give you too many clues ^ 

INrUI WJ about the game. Try p 

IF W$> BB THEN 60SUB 440 working out what all the / 

IF OB-22 THEN LET FI6I-1 \ I 

LET H»=’VERY NELL" ' / jl H 

RETURN n J 

IF OB-3 AND L (OB) =25 THEN LET L(0B)=0:LET MI=“MUNCH CHOMP" 

RETURN I & 

IF (OB-19 OR 0B-17) AND R-24 AND LUX 25 THEN LET MJ=M9$:LET L=L-12:LET F(16).=l W 

IF (OB-19 OR OB-17) AND R-24 AND Llll-25 THEN LET F(12)=1:LET MJ-MHI 

RETURN 

IF OB-3 AND R-7 AND L(0B)=25 THEN LET F(3)=1:LET L(0B)=0:LET B=B+1:LET M$=MA$ 

IF L (OB) =25 THEN LET L (0B> =R: LET MJ-’DDNE" 

RETURN 

IF R< >24 THEN LET MI-’NOTHING HERE TO TYPE ON! RETURN 
IF FI12I-0 THEN LET H$=’THIS TERMINAL IS NON-ACTI VATED" : RETURN 
LET MJ-’THE TERMINAL ECHOES :*+N$ 

IF OB-18 THEN LET Mt=“CODENORD ACCEPTED" : LET FI171-1 
IF 08=20 THEN LET MI-’TERMINAL ID’ 

RETURN 

IF R-14 AND OB-U AND L(8)=22 THEN LET L(B)=14:LET MJ-MBS+MCJ: RETURN 
IF R-14 AND OB-11 AND L1BJ-14 THEN LET L(8)=22:LET MI-MBf+MDJ 
IF FI15I-1 THEN LET L(1)=L(8) 

IF OB-21 AND F(6) = l AND L(6)=25 AND R-18 AND F(17)=l THEN LET B=BUO:LET M$=ME J: LET F(14)-l 
RETURN 


1510 LET S-0: FOR 1-1 TO G 
1520 IF LID-25 THEN LET S-SU 
1530 NEXT I 

1540 LET S-S+B: PRINT "YOUR SCORE - ’:S 

1550 IF FI 141=0 THEN PRINT ’PRESS RETURN TO CONTINUE’: INPUT 01 

15&0 RETURN 


1570 LET V-24: LET W=31 : LET G-8 

01580 DIM R$ (24> : DIM Of (W) : DIM Hf ( V) J 

1590 DIM L (6) : DIM F(17) 


1510-1S60: Scoring 
subroutine. 


1 570- 1590: Set up variables and 
dimension arrays. 


’INSIDE THE MOUSEHOLE - IT IS VERY DARK IN HERE’ 

’AT A MOUSEHOLE IN A CORNER OF THE ROOM’, 'ON THE EDGE OF A HIGH TABLE’ 

’AT THE BACK OF A HALLWAY" , " IN A STORAGE ROOM’, ’IN THE KITCHEN’ 

■FURTHER DONN A DARK SMELLY TUNNEL’, "BY A RAILNAY SIDING’ 

’AT THE BASE OF A TALL PLASTIC TREE ON THE EDGE OF A HIGH TABLE’ 

■OUTSIDE THE OPEN DOOR OF AN ODDLY PROPORTIONED HOUSE" 

•IN A YELLOW FRONT ROOM", ’BY A TV SET AND A RECORDER’ 1600-1870: Data lines 
•AT THE END OF A DARK TUNNEL’ 

’BY A LARGE SNITCH CONNECTED TO THE RAILNAY TRACKS’ 

■ALONGSIDE THE WINDING TRACK" 

■AT THE END OF THE LINE-THE TRACK DISAPPEARS THROUGH A HOLE IN THE NALL’ 
’BELON A NHOLE NALL OF OVERSIZED VIDEO SCREENS’ 

■STANDING ON THE MAX IMISER PAD’ 

’ON A SHELF OF DISTURBING APPARATUS - THERE IS A STOOL NEARBY" 

’ON A SHORT STEP STOOL’ 
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1580 

1890 

1900 


01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

01990 

2000 


DATA "ON THE FLOOR OF AN OVERTURNED BOX OF BROKEN ELECTRONIC PARTS' 

DATA 'AT A HOLE IN THE NALL FROM NHICH A RAILNAV LINE ENERGES" 

DATA 'AT THE BASE OF A SNIVEL CHIAR" 

DATA ‘STANDING ON A COMPUTER TERMINAL NITH A SECRURITY LOCK' 

DATA 16,12,3,21,5,17,19,14 

DATA •r,'GO , ,"N',*S" t 'N",'E','U','D',' JUMP', 'GET', 'TAKE', "PUT", 'OPEN' 

DATA 'EXAMINE', 'READ', 'TIE", 'CLIMB', 'POINT', "EAT', 'UNLOCK*, 'LEAVE", 'TYPE' 
DATA 'PRESS', 'SCORE', “SE",*SN',’SE', "SNE'.'NE", 'SNVNS',“NS','NE', 'NN' 
DATA ■EH','NMYNS', , NE , ,'EH\'N , ,'S','SVNED','EMUDYENVEN',“NEN' 

DATA 'NN", 'KEY" , 'CASSETTE* , "CHEESE" , "PAPER' , 'THREAD' , "REMOTE-CONTROL' 

DATA "BOTTLE', 'TRAIN', 'CAT', 'DOOR", 'SNITCH', “TUNNEL', 'TREE', 'HOLE", 'MOUSE' 
DATA 'VIDEO', 'COMPUTER', 'GROCER*, 'TERMINAL', "111', 'BUTTON", 'MAXIMISER' 

DATA 'TV' , "BOX' , 'NORTH' , 'SOUTH' , "NEST' , 'EAST' , 'UP' , 'BONN* , 'STOOL* 


FOR 1=1 TO 24: READ D$ : NEXT I:FQR 1=1 TO G: READ L(I):NEXT I 

FOR 1=1 TO V: READ H$ ( I ) : NEXT I:FOR 1=1 TO 24: READ RIII):NEXT I i880-i900:Readinda«a. 
FOR 1=1 TO N: READ OKIhNEXT I : LET F(10)=1:LET F(4)=1:LET F(2)=l 


LET R=1 1 : LET B=8: LET L=100:LET MI='YOU ANAKEN. . ':LET MHI="TERMINAL ACTIVE' 

LET H1$=‘Y0U CANNOT TAKE THE KEY THROUGH": LET M2I=' EH? VERY FUNNY" 

LET M3$='YQU HAVE THE " : LET M4I=’NELL DONE": LET MGI="NOTHING OF INTEREST' 

LET M5I="A LOUDLY BUZZING FLY FLIES OUT':LET MBI="THE TRAIN CHUGS ' 

LET M7$='IT IS JUST A BOX NITH PHOTO STUCK ON' : LET M9$='*' TAMPER »" 

LET M8I="IT IS SECURELY TIED. ' : LET M6I=' AND THE CAT CHASES AFTER IT" 

LET MA$="THE MOUSE RUNS OFF NITH IT.':LET MF$='TERMINAL PA5SN0RD='+0* ( 18) 

LET MC$=' INTO SIGHT AND STOPS HERE' : LET MDI=“ANAY AND INTO A TUNNEL' 

LET ME*='THE HAXIMISER BEAM NORKS. YOU ARE RETURNED TO NORMAL SIZE' 

RETURN 1910-2000: Set up messages. 


Conversion lines 

a 30 Replace CLS with PRINT CHRI1147) 

• 30 Replace CLS with HOME 

. . . FOR SPECTRUM USERS $ 

120 PRINT RliR.Ii;',": 

190 FOR 1=1 TO LI-1 

200 IF Q$ill=" ' AND VS=“' THEN LET VI=Sli TO 
210 IF QIII+DO 1 ' AND V$‘>" THEN LET 81=01* 


J 


1 


IMPORTANT NOTE 
for Commodore users. 

If you are using a C64 or a 
VIC 20, you must leave out 
the LETs in lines 400, 1340, 
1370 and 1490. 

If you are using a C64, you 
must leave out all the 
spaces in lines 1490, 1700 
and 1850. 


i-i; 

i+i 



TO ) : LET I=Ll-l 


235 IF LENIVIK7 THEN LET V*=VI+" '.-GOTO 235 

360 GOSUB 480*iVB=ll*550*IVB>l AND VB<9) +760* ( VB=9) +790* i VB=10 OR VB=11) 

+860* i VB=12) +920* ! VB=13) +970* !VB=14! 

380 GOSUB. 1080* ( VB=15) +1 100* (VB=16) +1 IBO* ( VB*17) +1250* ( VB=18)+1320* (VB=19) *1340* 4VB=20) 
+1370* < VB=21 ) *1 400* ( VB=22) +1460*( VB=23) + 1 510* ( VB =24i +1560*IVB=25) 


440 IF LEN(N$X14 THEN LET N$=N$t" ':GOTO 440 
445 FOR 1=1 TO N 
660 LET UI=R*(R,I) 

900 IF (0B=8 OR N$="ON '*01(8)+' " T HEN LET M$="NELL DONE : “ : LET F(15)=1:LET L(1)=R 

1580 DIM R* (24 . 4 1 : DIM 0$iN.14):D!M HXV.7) 

1910 LET R=! 1 :LET B=8: LET L=100:LET M$="YOU ANAKEN..' 

Lines 620, 790, 840, 920, 930, 1010, 1080, 1160, 1340, 1350, j370, 1460, 1470, 1490 

Replace Mil to MHt in tnese lines with the text in “lines 1910 to 1990 

eq. 620 IF R=2 AND L(l)=25 AND D=3 THEN LET MI="Y0'J CANNOT TAKE THE KEY THROUGH": RETURN 

Leave out lines 1920 to 1990 
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Answers to puzzles 


Here are the answers to some of the 
puzzles in this book. 

Skulls of The Pyramid 

To add more skulls, change the 5 in line 
260 to a higher number. 

The limits of the number to be scored are 
set in line 20. As the program stands the 
number chosen is between 10 and 39. If 
you change the 30 to 40, you will get a 
number between 10 and 49. If you also 
change the 10 to 20, you will get a number 
between 20 and 49. 

Monster Wrestling 

To increase the number of rounds, 
change the number 1 1 in lines 260 and 
550 to a higher number. (It must be the 
same in both.) 

If you increase the number of rounds, 
you may want more panics. To get these, 
change the number 4 in line 440 to a 
higher number. 

Jaws 

To make the hunter move more often, 
decrease the value of U in line 30, for 
example to 0.8. 

Flying Witches 

If you fail the program goes either to line 
240 or 250 for a message. Change these to 
whatever you like. 






Usborne Computer Books 


"Highly recommended to anyone of any age." Computing Today 
"Without question the best general introduction to computing I have ever 
seen. "Personal Computer World 

. perhaps the best introduction around . . outstanding . . ."Educational 
Computing 

"These books are outstanding . . . they make all otheryoung people's 
computer books look meretricious. "Times Educational Supplement 
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Practical Things to do with a 
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Computer Spacegames 
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Write Your Own Adventure 
Programs 
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Programming Tricks & Skills Professional tips and tricks for better 
programming. 

Experiments With Your Computer An exciting introduction to scientific 
investigation with a microcomputer. 

Expanding Your Micro A detailed guide to add-ons and interfaces. 

Write Your Own Fantasy Games A step-by-step guide to writing fantasy 
games, with program listing. 

Weird Computer Games, Computer Spy Games Short listings to run on 
most main home computers. 

Mystery of Silver Mountain, Island of Secrets Unique adventure game 
books containing full program listings. 
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